Voorbeeld van de eigenschap Index

In het volgende voorbeeld wordt de eigenschap Index gebruikt om de volgorde van de pagina' s en tabs in een MultiPage en TabStrip te wijzigen. De gebruiker kiest CommandButton1 om de derde pagina en tab in de MultiPage en TabStrip naar de voorgrond te verplaatsen. De gebruiker kiest CommandButton2 om de geselecteerde pagina en tab in een MultiPage en TabStrip naar de achtergrond te verplaatsen.

Als u dit voorbeeld wilt gebruiken, kopieert u de voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Twee besturingselementen CommandButton met de namen CommandButton1 en CommandButton2.
  
  
• Een MultiPage met de naam MultiPage1.
  
  
• Een TabStrip met de naam TabStrip1.

Dim MyPageOrTab As Object

Private Sub CommandButton1_Click()
'Move third page and tab to front of control
    MultiPage1.page3.Index = 0
    TabStrip1.Tab3.Index = 0
End Sub

Private Sub CommandButton2_Click()
'Move selected page and tab to back of control
    Set MyPageOrObject = MultiPage1.SelectedItem
    MsgBox "MultiPage1.SelectedItem = " _
        & MultiPage1.SelectedItem.Name
    MyPageOrObject.Index = 4

    Set MyPageOrObject = TabStrip1.SelectedItem
    MsgBox "TabStrip1.SelectedItem = " _
        & TabStrip1.SelectedItem.Caption
    MyPageOrObject.Index = 4
End Sub

Private Sub UserForm_Initialize()
    MultiPage1.Width = 200
    MultiPage1.Pages.Add
    MultiPage1.Pages.Add
    MultiPage1.Pages.Add
    
    TabStrip1.Width = 200
    TabStrip1.Tabs.Add
    TabStrip1.Tabs.Add
    TabStrip1.Tabs.Add
    
    CommandButton1.Caption = _
        "Move third page/tab to front"
    CommandButton1.Width = 120
    
    CommandButton2.Caption = _
        "Move selected item to back"
    CommandButton2.Width = 120
 End Sub